home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / sysopnote3.lha / sysopnote3 / Sysopnote3.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-15  |  4KB  |  38 lines
  1. /**************************************************************************\
  2.         $VER: Sysop Note - Version 3.0 - BulLdoG Productions 1997
  3. \**************************************************************************/
  4. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  5. tr=transmit ; se=sendstring ; gc=getchar ; gu=getuser ; mg=maygetchar
  6. a='rexxsupport.library';if ~show('l',a) then if ~addlib(a,0,-30) then exit
  7. changewhere 'Sysop Note V3.0' ; oldwh=result
  8. MAIN:;call carrier;gu 15;access=result;if ~exists('pfiles:sysopnote3/details.data') then signal ERROR
  9. call open(details,'pfiles:sysopnote3/details.data','R')
  10. ans.3=readln(details);ans.4=readln(details);ans.5=readln(details);ans.6=readln(details)
  11. ans.7=readln(details);ans.8=readln(details);ans.9=readln(details);ans.10=readln(details)
  12. ans.11=readln(details);ans.12=readln(details);ans.13=readln(details);ans.14=readln(details)
  13. ans.15=readln(details);call close(details)
  14. MESSAGE = random(1,ans.5,time(s))
  15. If message=1 then MESSTIT=ans.6;If message=2 then MESSTIT=ans.7;If message=3 then MESSTIT=ans.8 
  16. If message=4 then MESSTIT=ans.9;If message=5 then MESSTIT=ans.10;If message=6 then MESSTIT=ans.11
  17. If message=7 then MESSTIT=ans.12;If message=8 then MESSTIT=ans.13;If message=9 then MESSTIT=ans.14
  18. If message=10 then MESSTIT=ans.15
  19. tr 'HÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'
  20. tr '³       Bulldog Productions - Sysop Note Version 3.0 - 15th March 1997        ³'
  21. tr 'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´'
  22. tr '³ This Message Has The Title Of :                                             ³'
  23. tr 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'
  24. tr '5H'MESSTIT'!1';tr 'z0cf*0pfiles:sysopnote3/messages/'MESSAGE'}';signal FOOTER;exit
  25. FOOTER:;call carrier;tr 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿';tr '³     Programmed By Axl Of Bad Obsession BBS - Home Of Bulldog Productions    ³';tr 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ';if (access>=ans.3 & access<=ans.4) then signal SYSOP;tr 'n1#0pfiles:sysopnote3/wait.rexx}';signal BYE;exit
  26. SYSOP:;call carrier;prompt 1 NOYES 'n1                    Do You Wish To Enter Editor? [Y/N]';ans=result;if ans='Yes' then signal WRITE;signal BYE;exit
  27. WRITE:;call carrier;tr 'n1#0pfiles:sysopnote3/editor.rexx}';signal MAIN;exit
  28. CARRIER: ; if result~='###PANIC' then return ; call BYE ; tr 'f1n9ccSysop Note V3.0n2c9Loss of Carrier!' ; logentry 'No Carrier in Sysop Note V3.0' ; bufferflush ; exit
  29. ERROR:;call carrier;tr 'z0f1n1>1c2Sysop Note Version 3.0!n1c5-=-=-=-=-=-=-=-=-=-=-=-=-n1n1>1c2Error: cfNo Data File Has Been Found, Please Report This To The Sysop!';if access>=31 then signal SYSOP;tr 'n1#0pfiles:sysopnote3/wait.rexx}';signal BYE;exit
  30. BYE:;changewhere OLDWH;tr 'z0f1';exit
  31. SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)'
  32. e2='  c9Linecf: ce'left(sigl,4)'c9Filecf:';gu 1311992;a=result
  33. gu 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1
  34. logentry e2;e=sourceline(sigl);do while e~='';e3='c9Sourcecf: cd'
  35. e3=e3||left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  36. /** Last Edited: 15-MAR-97 ************************************************\
  37. \************************************** Bad Obsession +44-(0)1243-373596 **/
  38.